The Canadian & World Encyclopedia 1998/The Canadian & World Encyclopedia 1998 - Disc 2.iso/pc/pb/profile.dir/00048_Script_#profiles score script

Text File | 1997-07-29 | 4KB | 134 lines

global the_rolls,virtualRolloverList,b_sub_key,sub_open, multi_sub,can_play,menu_on,clearmenus,menusub_on, menusub_notgone, vid_delay,current_pm, credit_roll, vidplay, vidstate, endplay

on exitframe
  if not sub_open then
    vrolls
    if not multi_sub then
      credit_check
    end if
  end if
  go the frame
end

on idle

  if vidplay then

    if the movietime of sprite 26 = the duration of the member of sprite 26 then  bio_sub_hide

    if endplay then
      if the timer > 120 then -- inserted to deal with slow starting video
        if the movierate of sprite 26 = 0 then set the castnum of sprite 35 = cast "PLAY.PCT"
        set endplay = 0
      end if
    end if

    repeat while the movierate of sprite 26 = 1

      if not (the movierate of sprite 26 = vidstate) then vidswitch(vidstate)
      if the movietime of sprite 26 = the duration of the member of sprite 26 then  bio_sub_hide
      updatestage
      if the mousedown then
        put "the clickon " & the clickon
        case the clickon of
          25 : nothing
          3 :
            if inside(point(the mouseh, the mousev),the rect of sprite 3) then
              if not inside(point(the mouseh, the mousev), the rect of sprite 25) then
                bio_sub_hide
              end if
            end if
          1 :
            set sub_open = 1
        end case
        exit repeat
      end if
      case true of
        (rollover(35)) : handcursor
        (rollover(36)) : handcursor
        (rollover(37)) : handcursor
        (rollover(43)) :handcursor
        (rollover(1)) :cursor 0
      end case
    end repeat

  end if
  if not sub_open then pass

end

on vidswitch state
  if state = 1 then
    set the castnum of sprite 35 = cast "PLAY.PCT"
  else set the castnum of sprite 35 = cast "PAUSE.PCT"
end

on credit_check
  if not sub_open then
    --    if not multi_sub then
    if inside(point(the mouseh,the mousev),getat(credit_roll,integer(item 3 of the framelabel))) then
      if the visible of sprite 15 = false then
        set the visible of sprite 15 = true
      end if
    else
      if the visible of sprite 15 = true then set the visible of sprite 15 = false
    end if
    --    end if
  end if
end

on vrolls
  if not sub_open then
    repeat with x in virtualRolloverList
      if inside(point(the mouseH, the mouseV), x) then

        set the rect of sprite 23 = x
        if the visible of sprite 23 = false then set the visible of sprite 23 = true

        -- hard coded : needs a handler for multiple resolutions
        --        puppetsprite 23,true
        --        if multi_sub = 1 then
        --          set the backcolor of sprite 23 = 15
        --        else
        --          set the forecolor of sprite 23 = 21
        --        end if
        updatestage
        handcursor


        repeat while inside(point(the mouseH, the mouseV),x)
          if the mousedown then
            set b_sub_key = getOne(virtualRolloverList, x)
            set the cursor of sprite 3 = 4
            subwinpop(b_sub_key)
            set the cursor of sprite 3 = 0
            global biosub_rolls
            set_cursors(biosub_rolls)
            if item 1 of b_sub_key <> "glo" and item 1 of b_sub_key <> "txt" then
              --              put item 1 of b_sub_key
              viddelay_play 26
              set the castnum of sprite 35 = cast "PAUSE.PCT"
              puppettempo 30
            end if
            starttimer
            exit repeat
          end if
          --          vid_check
          updatestage

          --          idle
          -- other stuff, I imagine
        end repeat

        exit repeat

      else
        cursor 0
        --        set the visible of sprite 23 = false
        set the rect of sprite 23 = rect(-1000,-1000,-999,-999)
        updatestage
      end if
    end repeat
  end if
end